,S8,All of the dialogs used in this application were created with this application and use the TB30DLG.DLL.
,S9,Copyright
1991-1994 Asymetrix Corporation.
,S10,ToolBook Dialog Editor v 3.0
edit name,e235,
edit caption,e240,
iedit layer,i250,
,b1,TRUE
,b2,FALSE
,s253,Layer
,s252,Control ID:
,s254,Caption
static ID,s245,ID
,s255,Name
groupboxpropertiesinit
,G2544,Icon
,S2532,Name
,S2533,Control ID
,S2534,Layer
STATIC ID,S2542,
ICON Current Icon,h2547,icon "default"
,S2949,Icon Name
EDIT Name,E2540,
iedit Layer,i2541,
EDIT resourceName,E2950,
,B1,TRUE
,B2,FALSE
BUTTON Choose Icon,B2543,FALSE
PushButtonPropertiesINIT
CheckRadioPropertiesBOX
CheckRadioPropertiesINIT
,G2544,Bitmap
,S2532,Name
,S2533,Control ID
,S2534,Layer
STATIC ID,S2542,
BITMAP Current Bitmap,p2553,
EDIT Name,E2540,
iedit Layer,i2541,
,S2964,Bitmap Name
EDIT resourceName,E2965,
,B1,TRUE
,B2,FALSE
BUTTON Choose Bitmap,B2543,FALSE
,S2240,Name
,S2241,Layer
,S2242,Control ID
STATIC ID,S2246,32789
,S2247,Control Class
,S2249,Control Text
,S2278,Control Style
EDIT Name,E2243,
iedit Layer,i2636,
EDIT ClassName,E2248,
iedit Style,i2279,
EDIT Text,E2250,
BUTTON OK,B1,TRUE
BUTTON Cancel,B2,FALSE
customPropertiesInit
524480,14,25,25,230,131,,,Pushbutton Properties,8,MS Sans Serif,,6,43,28,12,253,1342177280,130,Layer,0,,63,43,39,12,252,1342177280,130,Control ID:,0,,6,25,33,12,254,1342177280,130,Caption,0,,6,10,33,12,255,1342177280,130,Name,0,name,37,6,125,13,235,1350631552,129,,0,caption,37,24,125,13,240,1350631552,129,,0,layer,37,43,20,12,250,1350631552,129,,0,,6,57,129,43,4782,1342177287,128,Button Action,0,ControlID,103,43,60,44,3253,1350631746,133,,0,Accept,20,72,78,9,200,1342177289,128,&Accept changes,0,Discard,20,84,80,9,205,1342177289,128,Cance&l the changes,0,Default,6,103,74,12,230,1342242819,128,&Default Pushbutton,0,,176,6,50,14,1,1342242817,128,&OK,0,,176,23,50,14,2,1342242816,128,&Cancel,0
PushButtonPropertiesBOX
,S253,Layer
,S252,Control ID:
,S254,Caption
,S255,Name
EDIT name,E235,
EDIT caption,E240,
iedit layer,i250,
,G4782,Button Action
COMBOBOX ControlID,C3253,
BUTTON Accept,B200,FALSE
BUTTON Discard,B205,FALSE
BUTTON Default,B230,FALSE
,B1,TRUE
,B2,FALSE
LoadTemplateINIT
comboboxpropertiesBOX
listboxpropertiesBOX
editpropertiesBOX
524480,16,25,25,209,113,,,Checkbox/Radio button Properties,8,MS Sans Serif,,6,60,63,37,4786,1342177287,128,Button Style,0,,7,45,28,12,253,1342177280,130,Layer,0,,75,45,39,12,252,1342177280,130,Control ID:,0,,7,25,33,12,254,1342177280,130,Caption,0,ID,114,45,25,8,245,1342177280,130,ID ,0,,7,10,33,12,255,1342177280,130,Name,0,name,37,6,99,13,235,1350631552,129,,0,caption,37,24,99,13,240,1350631552,129,,0,layer,37,41,20,12,250,1350631552,129,,0,checkbox,13,72,49,9,180,1342308361,128,Check&box,0,radio,13,85,53,9,185,1342177289,128,&Radio button,0,,73,60,64,37,4782,1342308359,128,Default Value,0,true,78,72,41,9,200,1342308361,128,&True,0,false,78,85,40,9,205,1342177289,128,&False,0,,151,7,51,15,1,1342373889,128,&OK,0,,151,26,51,15,2,1342242816,128,&Cancel,0
,G4786,Button Style
,S253,Layer
,S252,Control ID:
,S254,Caption
STATIC ID,S245,ID
,S255,Name
EDIT name,E235,
EDIT caption,E240,
iedit layer,i250,
BUTTON checkbox,B180,FALSE
BUTTON radio,B185,FALSE
,G4782,Default Value
BUTTON true,B200,FALSE
BUTTON false,B205,FALSE
,B1,TRUE
,B2,FALSE
524480,4,25,25,164,148,,,Load Dialog Template,8,MS Sans Serif,,6,6,91,9,3169,1342177280,130,Text,0,templates,6,17,92,110,3170,1352728579,131,,0,OK,108,6,50,14,1,1342242817,128,&Open,0,Cancel,108,22,50,14,2,1342242816,128,&Cancel,0
524480,13,25,25,209,124,,,Icon Properties,8,MS Sans Serif,,59.00,57.00,45.00,48.00,2544,1342177287,128,Icon,0,,6.00,12.00,22.00,10.00,2532,1342177280,130,Layer,0,,73.00,29.00,37.00,9.00,2533,1342177280,130,Control ID:,0,,5.00,28.00,26.00,10.00,2534,1342177280,130,Layer,0,ID,111.00,28.00,22.00,10.00,2542,1342177280,130,Text,0,Current Icon,72.00,74.00,19.00,20.00,2547,1342177283,130, ,0,,5.00,45.00,38.00,10.00,2949,1342177280,130,Layer,0,Name,43.00,10.00,95.00,12.00,2540,1350631552,129,,0,Layer,43.00,26.00,22.00,12.00,2541,1350631552,129,,0,resourceName,43.00,42.00,95.00,12.00,2950,1350631552,129,,0,,151.00,7.00,51.00,15.00,1,1342242817,128,OK,0,,151.00,26.00,51.00,15.00,2,1342242816,128,Cancel,0,Choose Icon,151.00,53.00,51.00,15.00,2543,1342242816,128,Choose &Icon,0
524480,13,25,25,209,142,,,Bitmap Properties,8,MS Sans Serif,,7.00,58.00,133.00,68.00,2544,1342177287,128,Bitmap,0,,7.00,12.00,22.00,10.00,2532,1342177280,130,Layer,0,,79.00,32.00,37.00,9.00,2533,1342177280,130,Control ID:,0,,7.00,32.00,26.00,10.00,2534,1342177280,130,Layer,0,ID,117.00,32.00,23.00,10.00,2542,1342177280,130,Text,0,Current Bitmap,28.00,72.00,96.00,50.00,2553,1342177280,TBKDLGBitmap,,0,Name,42.00,10.00,98.00,12.00,2540,1350631552,129,,0,Layer,42.00,30.00,23.00,12.00,2541,1350631552,129,,0,,6.00,49.00,46.00,10.00,2964,1342177280,130,Layer,0,resourceName,53.00,47.00,87.00,12.00,2965,1350631552,129,,0,,151.00,7.00,54.00,15.00,1,1342242817,128,OK,0,,151.00,26.00,54.00,15.00,2,1342242816,128,Cancel,0,Choose Bitmap,151.00,53.00,54.00,15.00,2543,1342242816,128,Choose &Bitmap,0
viewerScript
to handle buttonClick
hide this window
trueAcceptScript
to handle buttonClick
close this window
falseCancelScript
integerScript
ID_OK
ID_CANCEL
$:0q3
524480,14,25,25,241,153,,,Custom Control Properties,8,MS Sans Serif,,7.00,10.00,25.00,12.00,2240,1342177280,130,Text,0,,7.00,31.00,22.00,12.00,2241,1342177280,130,Text,0,,81.00,31.00,37.00,10.00,2242,1342177280,130,Text,0,ID,124.00,30.00,27.00,10.00,2246,1342177280,130,Text,0,,6.00,49.00,45.00,12.00,2247,1342177280,130,Text,0,,5.00,87.00,42.00,12.00,2249,1342177280,130,Text,0,,6.00,68.00,45.00,12.00,2278,1342177280,130,Text,0,Name,40.00,10.00,123.00,12.00,2243,1350631552,129,,0,Layer,40.00,29.00,29.00,12.00,2636,1350631552,129,,0,ClassName,55.00,47.00,107.00,14.00,2248,1350631552,129,,0,Style,55.00,66.00,107.00,14.00,2279,1350631552,129,,0,Text,55.00,86.00,107.00,50.00,2250,1352728580,129,,0,OK,179.00,10.00,54.00,14.00,1,1342242817,128,&OK,0,Cancel,179.00,28.00,54.00,14.00,2,1342242816,128,&Cancel,0
,G12,
BUTTON OK,B1,TRUE
,h6,icon "Dlg_MyAppIcon"
,S8,All of the dialogs used in this application were created with this application and use the TB35DLG.DLL.
,S9,Copyright
1991-1994 Asymetrix Corporation.
,S10,ToolBook Dialog Editor v 3.5
0,1342177281,130,Text,0
to handle show_DLGNAME_
--Move linkDLL statement to enterApplication handler
linkDLL "tb30dlg.dll"
string dialog(string, string)
string setValue(string, string, string)
string getValue(string, string)
set init to _DLGNAME_Init of this book
--set init to setValue(init,"","") --DLL function
set retValue to dialog(_DLGNAME_BOX of this book, init)
--get getValue(retValue, "") --DLL function
unlinkDLL "TB30DLG.DLL"
to handle show_DLGNAME_
open viewer _DLGNAME_
--uncomment the following lines to do initialization
--in viewer _DLGNAME_
-- initialize objects before showing the viewer
--end
show viewer _DLGNAME_ as modal
--if the viewer is still open then a true/Accept
--button was pressed
if isOpen of viewer _DLGNAME_
--uncomment the following lines to retrieve
--information from the dialog
--in viewer _DLGNAME_
-- get the data from the objects here
--end
--otherwise the dialog was canceled
else
--do anything here to clean up after a cancel
ID_OK
ID_OK
ID_OK
ID_OK
D:\MTB35\SAMPLES\DIALOG.TBK
ID_OK
ID_OK
buttonIDs
ID_OK
ID_CANCEL
about
ID_OK
9#X ;
to handle keyChar key
if ANSIToChar(key) is in "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890@_"
set character (item 2 of caretLocation + 1) of my password to ANSIToChar(key)
set character (item 2 of caretLocation + 1) of my text to "*"
increment item 2 of caretLocation
else
forward
4<v$Tr
j9\9L
524480,6,50,25,137,146,,,About Dialog,8,MS Sans Serif,,6,48,127,52,12,1342177287,128,,0,OK,49,115,40,14,1,1342242817,128,&OK,0,,7,9,18,20,6,1342177283,130, ,0,,9,60,120,34,8,1342177281,130,Text,0,,5,32,126,18,9,1342177281,130,Text,0,,33,9,100,17,10,1342177281,130,Text,0
Dialog
Page "Dialog"
controlProperties
Page "Help"
ToolBar
Editor - <Untitled>
Page "ToolBar"
ToolPalette
Page "ToolPalette"
groupboxScript
to handle sized
set syssuspendmessages to true
set item 4 of bounds of item 2 of my objects to item 2 of my bounds + 255
set item 2 of bounds of item 1 of my objects to item 2 of my bounds + 60
set sysSuspendMessages to false
selectedTool
select
lastRecTool
About Dialog
ToolBook Dialog Editor - aboutbox of D:\MTB40\SAMPLES\DIALOG.TBK
All of the dialogs used in this application were created with this application and use the TB40DLG.DLL.
FALSE
group
FALSE
group
FALSE
group
FALSE
controlProperties
Copyright
1991-1995 Asymetrix Corporation.
STATIC
controlProperties
controlProperties
group
FALSE
ToolBook Dialog Editor v 4.0
STATIC
Cannot Undo
PUSHBUTTON
ID_OK
ID_CANCEL
showDialog
Toolbar
s_dirty
Y%controlProperties
addButtonID
ToolBar
s_undoFlag
destroy
\>p3K=U
staticpropertiesinit
<BookPath>
:HDMEDIAPATH
System
Fo@_}
MS Sans Serif
System
Arial
MS Sans Serif
comboboxpropertiesinit
listboxpropertiesinit
editpropertiesinit
dialogpropertiesinit
aboutinit
,G2687,Options
EDIT Name,E235,
iedit Layer,i245,
iedit DropDownLength,i248,
EDIT Items,E250,
BUTTON sort,B270,TRUE
BUTTON scroll,B18,FALSE
BUTTON editable,B119,FALSE
,B1,TRUE
,B2,FALSE
,S252,Layer
,S254,Control ID:
,S251,Name
,S255,Combobox Items
,S253,Dropdown Length
STATIC ID,S240,ID
,G2667,Style
,S253,Layer
,S254,Control ID:
,S252,Name
,S251,Listbox Items
STATIC ID,S240,ID
EDIT Name,E235,
iedit Layer,i245,
EDIT Items,E250,
BUTTON single,B3392,FALSE
,B275,FALSE
,B280,FALSE
,B270,FALSE
,B1,TRUE
,B2,FALSE
,G4848,Justification
,S253,Layer
,S254,Control ID:
,S252,Name
,S6115,Initial Text
,S240,ID
,E235,
,i245,
,B255,FALSE
,B265,FALSE
,B260,FALSE
,E250,
,B205,FALSE
,B210,FALSE
,B215,FALSE
BUTTON password,B2814,FALSE
,B220,FALSE
,B225,FALSE
,B200,FALSE
,B1,TRUE
,B2,FALSE
,G4828,Justification
,S252,Layer
,S253,Control ID
,S251,Name
,S254,Static Text
,S240,ID
,E235,
,i245,
,B255,FALSE
,B260,FALSE
,B265,FALSE
,E250,
,B270,FALSE
,B1,TRUE
,B2,FALSE
iconpropertiesinit
bitmapPropertiesInit
LoadTemplateBOX
,S3151,Name
,S3154,Y Position
,S3155,X Position
,S2987,Caption
EDIT Name,E3152,
EDIT caption,E2988,
iedit xpos,i3156,
iedit ypos,i3157,
,B1,TRUE
,B2,FALSE
ID_CANCEL
9IALOG.TBK
targetBook
D:\MTB40\SAMPLES\DIALOG.TBK
lication were created with this application and use the TB30DLG.DLL.
,S9,Copyright
1991-1994 Asymetrix Corporation.
,S10,ToolBook Dialog Editor v 3.0
edit name,e235,
edit caption,e240,
iedit layer,i250,
,b1,TRUE
,b2,FALSE
,s253,Layer
,s252,Control ID:
,s254,Caption
static ID,s245,ID
,s255,Name
groupboxpropertiesinit
,G2544,Icon
,S2532,Name
,S2533,Control ID
,S2534,Layer
STATIC ID,S2542,
ICON Current Icon,h2547,icon "default"
,S2949,Icon Name
EDIT Name,E2540,
iedit Layer,i2541,
EDIT resourceName,E2950,
,B1,TRUE
,B2,FALSE
BUTTON Choose Icon,B2543,FALSE
PushButtonPropertiesINIT
CheckRadioPropertiesBOX
CheckRadioPropertiesINIT
,G2544,Bitmap
,S2532,Name
,S2533,Control ID
,S2534,Layer
STATIC ID,S2542,
BITMAP Current Bitmap,p2553,
EDIT Name,E2540,
iedit Layer,i2541,
,S2964,Bitmap Name
EDIT resourceName,E2965,
,B1,TRUE
,B2,FALSE
BUTTON Choose Bitmap,B2543,FALSE
,S2240,Name
,S2241,Layer
,S2242,Control ID
STATIC ID,S2246,32789
,S2247,Control Class
,S2249,Control Text
,S2278,Control Style
EDIT Name,E2243,
iedit Layer,i2636,
EDIT ClassName,E2248,
iedit Style,i2279,
EDIT Text,E2250,
BUTTON OK,B1,TRUE
BUTTON Cancel,B2,FALSE
customPropertiesInit
524480,14,25,25,230,131,,,Pushbutton Properties,8,MS Sans Serif,,6,43,28,12,253,1342177280,130,Layer,0,,63,43,39,12,252,1342177280,130,Control ID:,0,,6,25,33,12,254,1342177280,130,Caption,0,,6,10,33,12,255,1342177280,130,Name,0,name,37,6,125,13,235,1350631552,129,,0,caption,37,24,125,13,240,1350631552,129,,0,layer,37,43,20,12,250,1350631552,129,,0,,6,57,129,43,4782,1342177287,128,Button Action,0,ControlID,103,43,60,44,3253,1350631746,133,,0,Accept,20,72,78,9,200,1342177289,128,&Accept changes,0,Discard,20,84,80,9,205,1342177289,128,Cance&l the changes,0,Default,6,103,74,12,230,1342242819,128,&Default Pushbutton,0,,176,6,50,14,1,1342242817,128,&OK,0,,176,23,50,14,2,1342242816,128,&Cancel,0
PushButtonPropertiesBOX
,S253,Layer
,S252,Control ID:
,S254,Caption
,S255,Name
EDIT name,E235,
EDIT caption,E240,
iedit layer,i250,
,G4782,Button Action
COMBOBOX ControlID,C3253,
BUTTON Accept,B200,FALSE
BUTTON Discard,B205,FALSE
BUTTON Default,B230,FALSE
,B1,TRUE
,B2,FALSE
LoadTemplateINIT
comboboxpropertiesBOX
listboxpropertiesBOX
editpropertiesBOX
524480,16,25,25,209,113,,,Checkbox/Radio button Properties,8,MS Sans Serif,,6,60,63,37,4786,1342177287,128,Button Style,0,,7,45,28,12,253,1342177280,130,Layer,0,,75,45,39,12,252,1342177280,130,Control ID:,0,,7,25,33,12,254,1342177280,130,Caption,0,ID,114,45,25,8,245,1342177280,130,ID ,0,,7,10,33,12,255,1342177280,130,Name,0,name,37,6,99,13,235,1350631552,129,,0,caption,37,24,99,13,240,1350631552,129,,0,layer,37,41,20,12,250,1350631552,129,,0,checkbox,13,72,49,9,180,1342308361,128,Check&box,0,radio,13,85,53,9,185,1342177289,128,&Radio button,0,,73,60,64,37,4782,1342308359,128,Default Value,0,true,78,72,41,9,200,1342308361,128,&True,0,false,78,85,40,9,205,1342177289,128,&False,0,,151,7,51,15,1,1342373889,128,&OK,0,,151,26,51,15,2,1342242816,128,&Cancel,0
,G4786,Button Style
,S253,Layer
,S252,Control ID:
,S254,Caption
STATIC ID,S245,ID
,S255,Name
EDIT name,E235,
EDIT caption,E240,
iedit layer,i250,
BUTTON checkbox,B180,FALSE
BUTTON radio,B185,FALSE
,G4782,Default Value
BUTTON true,B200,FALSE
BUTTON false,B205,FALSE
,B1,TRUE
,B2,FALSE
524480,4,25,25,164,148,,,Load Dialog Template,8,MS Sans Serif,,6,6,91,9,3169,1342177280,130,Text,0,templates,6,17,92,110,3170,1352728579,131,,0,OK,108,6,50,14,1,1342242817,128,&Open,0,Cancel,108,22,50,14,2,1342242816,128,&Cancel,0
524480,13,25,25,209,124,,,Icon Properties,8,MS Sans Serif,,59.00,57.00,45.00,48.00,2544,1342177287,128,Icon,0,,6.00,12.00,22.00,10.00,2532,1342177280,130,Layer,0,,73.00,29.00,37.00,9.00,2533,1342177280,130,Control ID:,0,,5.00,28.00,26.00,10.00,2534,1342177280,130,Layer,0,ID,111.00,28.00,22.00,10.00,2542,1342177280,130,Text,0,Current Icon,72.00,74.00,19.00,20.00,2547,1342177283,130, ,0,,5.00,45.00,38.00,10.00,2949,1342177280,130,Layer,0,Name,43.00,10.00,95.00,12.00,2540,1350631552,129,,0,Layer,43.00,26.00,22.00,12.00,2541,1350631552,129,,0,resourceName,43.00,42.00,95.00,12.00,2950,1350631552,129,,0,,151.00,7.00,51.00,15.00,1,1342242817,128,OK,0,,151.00,26.00,51.00,15.00,2,1342242816,128,Cancel,0,Choose Icon,151.00,53.00,51.00,15.00,2543,1342242816,128,Choose &Icon,0
524480,13,25,25,209,142,,,Bitmap Properties,8,MS Sans Serif,,7.00,58.00,133.00,68.00,2544,1342177287,128,Bitmap,0,,7.00,12.00,22.00,10.00,2532,1342177280,130,Layer,0,,79.00,32.00,37.00,9.00,2533,1342177280,130,Control ID:,0,,7.00,32.00,26.00,10.00,2534,1342177280,130,Layer,0,ID,117.00,32.00,23.00,10.00,2542,1342177280,130,Text,0,Current Bitmap,28.00,72.00,96.00,50.00,2553,1342177280,TBKDLGBitmap,,0,Name,42.00,10.00,98.00,12.00,2540,1350631552,129,,0,Layer,42.00,30.00,23.00,12.00,2541,1350631552,129,,0,,6.00,49.00,46.00,10.00,2964,1342177280,130,Layer,0,resourceName,53.00,47.00,87.00,12.00,2965,1350631552,129,,0,,151.00,7.00,54.00,15.00,1,1342242817,128,OK,0,,151.00,26.00,54.00,15.00,2,1342242816,128,Cancel,0,Choose Bitmap,151.00,53.00,54.00,15.00,2543,1342242816,128,Choose &Bitmap,0
viewerScript
to handle buttonClick
hide this window
trueAcceptScript
to handle buttonClick
close this window
falseCancelScript
integerScript
ID_OK
ID_CANCEL
$:0q3
524480,14,25,25,241,153,,,Custom Control Properties,8,MS Sans Serif,,7.00,10.00,25.00,12.00,2240,1342177280,130,Text,0,,7.00,31.00,22.00,12.00,2241,1342177280,130,Text,0,,81.00,31.00,37.00,10.00,2242,1342177280,130,Text,0,ID,124.00,30.00,27.00,10.00,2246,1342177280,130,Text,0,,6.00,49.00,45.00,12.00,2247,1342177280,130,Text,0,,5.00,87.00,42.00,12.00,2249,1342177280,130,Text,0,,6.00,68.00,45.00,12.00,2278,1342177280,130,Text,0,Name,40.00,10.00,123.00,12.00,2243,1350631552,129,,0,Layer,40.00,29.00,29.00,12.00,2636,1350631552,129,,0,ClassName,55.00,47.00,107.00,14.00,2248,1350631552,129,,0,Style,55.00,66.00,107.00,14.00,2279,1350631552,129,,0,Text,55.00,86.00,107.00,50.00,2250,1352728580,129,,0,OK,179.00,10.00,54.00,14.00,1,1342242817,128,&OK,0,Cancel,179.00,28.00,54.00,14.00,2,1342242816,128,&Cancel,0
,G12,
BUTTON OK,B1,TRUE
,h6,icon "Dlg_MyAppIcon"
,S8,All of the dialogs used in this application were created with this application and use the TB35DLG.DLL.
,S9,Copyright
1991-1994 Asymetrix Corporation.
,S10,ToolBook Dialog Editor v 3.5
90,1342177281,130,Text,0
to handle show_DLGNAME_
--Move linkDLL statement to enterApplication handler
linkDLL "tb30dlg.dll"
string dialog(string, string)
string setValue(string, string, string)
string getValue(string, string)
set init to _DLGNAME_Init of this book
--set init to setValue(init,"","") --DLL function
set retValue to dialog(_DLGNAME_BOX of this book, init)
--get getValue(retValue, "") --DLL function
unlinkDLL "TB30DLG.DLL"
to handle show_DLGNAME_
open viewer _DLGNAME_
--uncomment the following lines to do initialization
--in viewer _DLGNAME_
-- initialize objects before showing the viewer
--end
show viewer _DLGNAME_ as modal
--if the viewer is still open then a true/Accept
--button was pressed
if isOpen of viewer _DLGNAME_
--uncomment the following lines to retrieve
--information from the dialog
--in viewer _DLGNAME_
-- get the data from the objects here
--end
--otherwise the dialog was canceled
else
--do anything here to clean up after a cancel
ID_OK
ID_OK
ID_OK
ID_OK
ID_CANCEL
9IALOG.TBK
dialogName
ID_OK
about
about
buttonIDs
about
,=CANCEL
9F9_OK
8F9_OK
9#X ;
to handle keyChar key
if ANSIToChar(key) is in "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890@_"
set character (item 2 of caretLocation + 1) of my password to ANSIToChar(key)
set character (item 2 of caretLocation + 1) of my text to "*"
increment item 2 of caretLocation
else
forward
N=v$Tr
,G12,
BUTTON OK,B1,TRUE
,h6,icon "Dlg_MyAppIcon"
,S8,All of the dialogs used in this application were created with this application and use the TB40DLG.DLL.
,S9,Copyright
1991-1995 Asymetrix Corporation.
,S10,ToolBook Dialog Editor v 4.0
9p3,1342177281,130,Text,0
524480,6,50,25,137,146,,,About Dialog,8,MS Sans Serif,,6,46,127,54,12,1342177287,128,,0,OK,49,115,40,14,1,1342242817,128,&OK,0,,7,9,18,20,6,1342177283,130, ,0,,9,60,120,34,8,1342177281,130,Text,0,,5,32,126,18,9,1342177281,130,Text,0,,33,9,100,17,10,1342177281,130,Text,0